|
100
|
How do I change the visual aspect for thumb parts in the scroll bars, using EBN
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oExFileView.VisualAppearance.Add(2,"c:\exontrol\images\pushed.ebn")
oExFileView.VisualAppearance.Add(3,"c:\exontrol\images\hot.ebn")
oExFileView.Template = "Background(388) = 16777216" // oExFileView.Background(388) = 16777216
oExFileView.Template = "Background(389) = 33554432" // oExFileView.Background(389) = 33554432
oExFileView.Template = "Background(391) = 50331648" // oExFileView.Background(391) = 50331648
oExFileView.Template = "Background(260) = 16777216" // oExFileView.Background(260) = 16777216
oExFileView.Template = "Background(261) = 33554432" // oExFileView.Background(261) = 33554432
oExFileView.Template = "Background(263) = 50331648" // oExFileView.Background(263) = 50331648
oExFileView.ColumnAutoResize = .f.
oExFileView.Template = "ColumnWidth(`Name`) = 256" // oExFileView.ColumnWidth("Name") = 256
|
|
99
|
How do I change the visual aspect only for the thumb in the scroll bar, using EBN
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oExFileView.VisualAppearance.Add(2,"c:\exontrol\images\pushed.ebn")
oExFileView.VisualAppearance.Add(3,"c:\exontrol\images\hot.ebn")
oExFileView.Template = "Background(388) = 16777216" // oExFileView.Background(388) = 16777216
oExFileView.Template = "Background(389) = 33554432" // oExFileView.Background(389) = 33554432
oExFileView.Template = "Background(391) = 50331648" // oExFileView.Background(391) = 50331648
oExFileView.ColumnAutoResize = .f.
oExFileView.Template = "ColumnWidth(`Name`) = 256" // oExFileView.ColumnWidth("Name") = 256
|
|
98
|
How to check whether the control hides the three-letter file-name extensions for certain files, reducing clutter in folder windows
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.Template = "Option(4) = True" // oExFileView.Option(4) = .t.
oExFileView.Refresh()
|
|
97
|
How can I change the date format in the Modified column
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.Template = "Option(2) = `yyyyy `" // oExFileView.Option(2) = "yyyyy "
oExFileView.Template = "Option(3) = `hh:mm`" // oExFileView.Option(3) = "hh:mm"
oExFileView.Refresh()
|
|
96
|
How can I change the date format in the Modified column
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.Template = "Option(2) = `ddd, MMM dd yy`" // oExFileView.Option(2) = "ddd, MMM dd yy"
oExFileView.Refresh()
|
|
95
|
How can I change the format of the caption that's shown in the Modified column, if ModifiedDaysAgo property is used
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.ModifiedDaysAgo = 356
oExFileView.Template = "Option(1) = `vor %i Tagen`" // oExFileView.Option(1) = "vor %i Tagen"
oExFileView.Refresh()
|
|
94
|
How can I change the "today" caption that's shown in the Modified column
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.ModifiedDaysAgo = 356
oExFileView.Template = "Option(0) = `__ new today __`" // oExFileView.Option(0) = "__ new today __"
oExFileView.Refresh()
|
|
93
|
Is there any way to rename a column
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.Template = "ColumnCaption(`Name`) = `__ new name __`" // oExFileView.ColumnCaption("Name") = "__ new name __"
|
|
92
|
Is there any option to exclude folders that match a pattern
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.ExcludeFolderFilter = "W*"
|
|
91
|
Is there any option to include only folders that match a pattern
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.IncludeFolderFilter = "W*"
|
|
90
|
How can I include files when folders are expanded
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.ExpandFolders = .t.
oExFileView.IncludeFilesInFolder = .t.
|
|
89
|
How do I get the file or folder from the cursor
' Occurs when the user moves the mouse.
function MouseMove as v (Button as N,Shift as N,X as OLE::Exontrol.ExFileView.1::OLE_XPOS_PIXELS,Y as OLE::Exontrol.ExFileView.1::OLE_YPOS_PIXELS)
oExFileView = topparent:CONTROL_ACTIVEX1.activex
? oExFileView.FileFromPoint(-1,-1)
end function
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
? oExFileView.FileFromPoint(-1,-1)
|
|
88
|
How can I expand programatically a folder
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.ExpandFolders = .t.
oExFileView.Expand("WINNT")
|
|
87
|
Is there any option to remove the tooltip when the cursor hovers the column's drop down filter window
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.Template = "ColumnFilterButton(`Name`) = True" // oExFileView.ColumnFilterButton("Name") = .t.
oExFileView.Template = "Description(2) = ``" // oExFileView.Description(2) = ""
oExFileView.Template = "Description(3) = ``" // oExFileView.Description(3) = ""
oExFileView.Template = "Description(4) = ``" // oExFileView.Description(4) = ""
oExFileView.Template = "Description(5) = ``" // oExFileView.Description(5) = ""
oExFileView.Template = "Description(6) = ``" // oExFileView.Description(6) = ""
|
|
86
|
How can I change the "Filter For" caption in the column's drop down filter window
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.Template = "ColumnFilterButton(`Name`) = True" // oExFileView.ColumnFilterButton("Name") = .t.
oExFileView.Template = "Description(1) = `new caption`" // oExFileView.Description(1) = "new caption"
|
|
85
|
How do I change the "All" caption in the drop down filter window
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.Template = "ColumnFilterButton(`Name`) = True" // oExFileView.ColumnFilterButton("Name") = .t.
oExFileView.Template = "Description(0) = `new name for (All)`" // oExFileView.Description(0) = "new name for (All)"
|
|
84
|
How do I sort a column
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.Sort("Name",.f.)
|
|
83
|
How do I change the font in the filter bar
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.Template = "ColumnFilterButton(`Name`) = True" // oExFileView.ColumnFilterButton("Name") = .t.
oExFileView.Template = "ColumnFilterType(`Name`) = 1" // oExFileView.ColumnFilterType("Name") = 1
oExFileView.Template = "ColumnFilter(`Name`) = `*.exe|*.com|*.bat`" // oExFileView.ColumnFilter("Name") = "*.exe|*.com|*.bat"
oExFileView.ApplyFilter()
oExFileView.FilterBarFont.Name = "Verdana"
|
|
82
|
How do I change the visual appearanceof the filter bar
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oExFileView.Template = "ColumnFilterButton(`Name`) = True" // oExFileView.ColumnFilterButton("Name") = .t.
oExFileView.Template = "ColumnFilterType(`Name`) = 1" // oExFileView.ColumnFilterType("Name") = 1
oExFileView.Template = "ColumnFilter(`Name`) = `*.exe|*.com|*.bat`" // oExFileView.ColumnFilter("Name") = "*.exe|*.com|*.bat"
oExFileView.ApplyFilter()
oExFileView.FilterBarBackColor = 16777216
|
|
81
|
How do I change the color in the filter bar
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.Template = "ColumnFilterButton(`Name`) = True" // oExFileView.ColumnFilterButton("Name") = .t.
oExFileView.Template = "ColumnFilterType(`Name`) = 1" // oExFileView.ColumnFilterType("Name") = 1
oExFileView.Template = "ColumnFilter(`Name`) = `*.exe|*.com|*.bat`" // oExFileView.ColumnFilter("Name") = "*.exe|*.com|*.bat"
oExFileView.ApplyFilter()
oExFileView.FilterBarBackColor = 255
|
|
80
|
How do I change the color in the filter bar
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.Template = "ColumnFilterButton(`Name`) = True" // oExFileView.ColumnFilterButton("Name") = .t.
oExFileView.Template = "ColumnFilterType(`Name`) = 1" // oExFileView.ColumnFilterType("Name") = 1
oExFileView.Template = "ColumnFilter(`Name`) = `*.exe|*.com|*.bat`" // oExFileView.ColumnFilter("Name") = "*.exe|*.com|*.bat"
oExFileView.ApplyFilter()
oExFileView.FilterBarForeColor = 255
|
|
79
|
How do I specify the height of the filter bar
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.Template = "ColumnFilterButton(`Name`) = True" // oExFileView.ColumnFilterButton("Name") = .t.
oExFileView.Template = "ColumnFilterType(`Name`) = 1" // oExFileView.ColumnFilterType("Name") = 1
oExFileView.Template = "ColumnFilter(`Name`) = `*.exe|*.com|*.bat`" // oExFileView.ColumnFilter("Name") = "*.exe|*.com|*.bat"
oExFileView.ApplyFilter()
oExFileView.FilterBarHeight = 32
|
|
78
|
How do I remove or clear the filter
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.Template = "ColumnFilterButton(`Name`) = True" // oExFileView.ColumnFilterButton("Name") = .t.
oExFileView.Template = "ColumnFilterType(`Name`) = 1" // oExFileView.ColumnFilterType("Name") = 1
oExFileView.Template = "ColumnFilter(`Name`) = `*.exe|*.com|*.bat`" // oExFileView.ColumnFilter("Name") = "*.exe|*.com|*.bat"
oExFileView.ApplyFilter()
oExFileView.ClearFilter()
|
|
77
|
How do I change the caption in the filter bar
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.Template = "ColumnFilterButton(`Name`) = True" // oExFileView.ColumnFilterButton("Name") = .t.
oExFileView.Template = "ColumnFilterType(`Name`) = 1" // oExFileView.ColumnFilterType("Name") = 1
oExFileView.Template = "ColumnFilter(`Name`) = `*.exe|*.com|*.bat`" // oExFileView.ColumnFilter("Name") = "*.exe|*.com|*.bat"
oExFileView.ApplyFilter()
oExFileView.FilterBarCaption = "new filter"
|
|
76
|
How do I filter a column
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.Template = "ColumnFilterButton(`Name`) = True" // oExFileView.ColumnFilterButton("Name") = .t.
oExFileView.Template = "ColumnFilterType(`Name`) = 1" // oExFileView.ColumnFilterType("Name") = 1
oExFileView.Template = "ColumnFilter(`Name`) = `*.exe|*.com|*.bat`" // oExFileView.ColumnFilter("Name") = "*.exe|*.com|*.bat"
oExFileView.ApplyFilter()
|
|
75
|
How can I enlarge the height of the drop down filter window
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.Template = "ColumnFilterButton(`Name`) = True" // oExFileView.ColumnFilterButton("Name") = .t.
oExFileView.FilterBarDropDownHeight = "-256"
|
|
74
|
How do I remove or clear my own filters
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.Template = "ColumnFilterButton(`Name`) = True" // oExFileView.ColumnFilterButton("Name") = .t.
oExFileView.AddColumnCustomFilter("Name","(Executable files)","*.exe|*.com|*.bat")
oExFileView.ClearColumnCustomFilters("Name")
|
|
73
|
How do I specify my own filters
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.Template = "ColumnFilterButton(`Name`) = True" // oExFileView.ColumnFilterButton("Name") = .t.
oExFileView.AddColumnCustomFilter("Name","(Executable files)","*.exe|*.com|*.bat")
|
|
72
|
How can I enlarge the width of the drop down filter window
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.Template = "ColumnFilterButton(`Name`) = True" // oExFileView.ColumnFilterButton("Name") = .t.
oExFileView.Template = "FilterBarDropDownWidth(`Name`) = 2" // oExFileView.FilterBarDropDownWidth("Name") = 2
|
|
71
|
How can I enlarge the width of the drop down filter window
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.Template = "ColumnFilterButton(`Name`) = True" // oExFileView.ColumnFilterButton("Name") = .t.
oExFileView.Template = "FilterBarDropDownWidth(`Name`) = `-256`" // oExFileView.FilterBarDropDownWidth("Name") = "-256"
|
|
70
|
How can I enable filtering the folders and files
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.Template = "ColumnFilterButton(`Name`) = True" // oExFileView.ColumnFilterButton("Name") = .t.
|
|
69
|
How do I display in the Modified column, the number of days since the file or folder was changed
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.ModifiedDaysAgo = 356
|
|
68
|
How do I stop programatically the searching
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.StopSearch()
|
|
67
|
How do I search or find files
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.Search = "A*.A*"
|
|
66
|
How can I expand or collapse a folder, when the user double clicks it
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.ExpandFolders = .t.
oExFileView.ExpandOnDblClk = .t.
|
|
65
|
How can I change the default icon being displayed for parent folders
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.LoadIcon(oExFileView.ExecuteTemplate("loadpicture(`c:\exontrol\images\week.ico`)"),1234)
oExFileView.IncludeParentIconKey = 1234
|
|
64
|
How can I show only folders
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.IncludeFiles = .f.
|
|
63
|
How can I show or hide the expand/collapse buttons
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.ExpandFolders = .t.
oExFileView.HasLines = .t.
oExFileView.HasLinesAtRoot = .t.
oExFileView.HasButtons = .f.
|
|
62
|
How can I show the lines at root
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.ExpandFolders = .t.
oExFileView.HasLines = .t.
oExFileView.HasLinesAtRoot = .t.
|
|
61
|
How can I show the lines between child and parents
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.ExpandFolders = .t.
oExFileView.HasLines = .t.
|
|
60
|
Is there any option to add an expand or collapse (+/-) buttons left to each folder
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.ExpandFolders = .t.
|
|
59
|
How do I show or hide the first item that shows when I browse new folders
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.IncludeParent = .f.
|
|
58
|
How do I enable or disable renaming the folders and files
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.AllowRename = .t.
|
|
57
|
How do I change the width of the columns
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.ColumnAutoResize = .f.
oExFileView.Template = "ColumnWidth(`Name`) = 256" // oExFileView.ColumnWidth("Name") = 256
|
|
56
|
How do I change the width of the columns
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.Template = "ColumnWidth(`Name`) = 256" // oExFileView.ColumnWidth("Name") = 256
|
|
55
|
How do I show or hide a column
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.Template = "ColumnVisible(`Type`) = False" // oExFileView.ColumnVisible("Type") = .f.
|
|
54
|
How can I get the path of the browsed folder
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.BrowseFolderPath = "C:\Temp"
|
|
53
|
The Change event is not fired. What can I do
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.ChangeNotification = .t.
|
|
52
|
How do I execute a command from the file's content menu (sample 1)
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.BeginUpdate()
oExFileView.ExploreFromHere = ""
oExFileView.ExecuteContextCommand("C:\",.t.,"Properties")
oExFileView.EndUpdate()
|
|
51
|
How do I change the width of the columns
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.ColumnAutoResize = .f.
oExFileView.Template = "ColumnWidth(`Name`) = 256" // oExFileView.ColumnWidth("Name") = 256
|
|
50
|
How can I refresh automatically the control so it reflect the changes in the browsed folder
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.AutoUpdate = .t.
|
|
49
|
May I disable the control's content menu, that's displayed when the user does right click
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.AllowMenuContext = .f.
|
|
48
|
How do I refresh the control
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.Refresh()
|
|
47
|
How do I enable single or multiple selection
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.SingleSel = .f.
|
|
46
|
Can I display only all execpts the *.exe and *.com files using wild characters
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.ExcludeFilter = "*.exe *.com *.bat"
|
|
45
|
Can I display only *.exe and *.com files using wild characters
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.IncludeFilter = "*.exe *.com *.bat"
|
|
44
|
Can I change the folder being explored
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.ExploreFromHere = "c:\Program Files"
|
|
43
|
Can I display only files
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.IncludeFolders = .f.
|
|
42
|
How can I change the default icon being displayed for specified folders
Dim oExFileView as P
Dim var_FileType as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.LoadIcon(oExFileView.ExecuteTemplate("loadpicture(`c:\exontrol\images\week.ico`)"),1234)
var_FileType = oExFileView.FileTypes.Add("W*")
var_FileType.Folder = .t.
var_FileType.IconIndex = 1234
var_FileType.Bold = .t.
var_FileType.Apply()
|
|
41
|
How can I change the default icon being displayed for specified files
Dim oExFileView as P
Dim var_FileType as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.LoadIcon(oExFileView.ExecuteTemplate("loadpicture(`c:\exontrol\images\week.ico`)"),1234)
var_FileType = oExFileView.FileTypes.Add("*.bat *.com *.exe")
var_FileType.IconIndex = 1234
var_FileType.Apply()
|
|
40
|
How can I change the default icon being displayed for files
Dim oExFileView as P
Dim var_FileType as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.LoadIcon(oExFileView.ExecuteTemplate("loadpicture(`c:\exontrol\images\week.ico`)"),1234)
var_FileType = oExFileView.FileTypes.Add("*")
var_FileType.IconIndex = 1234
var_FileType.Apply()
|
|
39
|
How can I change the default icon being displayed for folders
Dim oExFileView as P
Dim var_FileType as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.LoadIcon(oExFileView.ExecuteTemplate("loadpicture(`c:\exontrol\images\week.ico`)"),1234)
var_FileType = oExFileView.FileTypes.Add("*")
var_FileType.Folder = .t.
var_FileType.IconIndex = 1234
var_FileType.Apply()
|
|
38
|
Does your control support partial check feature, so a parent item gets checked when all its child items are checked
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.HasCheckBox = 1
oExFileView.ExpandFolders = .t.
|
|
37
|
Can I add a checkbox to each file or folder
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.HasCheckBox = -1
|
|
36
|
How do I put a picture on the center of the control
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.Picture = oExFileView.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oExFileView.PictureDisplay = 17
|
|
35
|
How do I resize/stretch a picture on the control's background
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.Picture = oExFileView.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oExFileView.PictureDisplay = 49
|
|
34
|
How do I put a picture on the control's center right bottom side
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.Picture = oExFileView.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oExFileView.PictureDisplay = 34
|
|
33
|
How do I put a picture on the control's center left bottom side
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.Picture = oExFileView.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oExFileView.PictureDisplay = 32
|
|
32
|
How do I put a picture on the control's center top side
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.Picture = oExFileView.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oExFileView.PictureDisplay = 1
|
|
31
|
How do I put a picture on the control's right top corner
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.Picture = oExFileView.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oExFileView.PictureDisplay = 2
|
|
30
|
How do I put a picture on the control's left top corner
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.Picture = oExFileView.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oExFileView.PictureDisplay = 0
|
|
29
|
How do I put a picture on the control's background
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.Picture = oExFileView.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
|
|
28
|
How do I change the control's border, using your EBN files
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.VisualAppearance.Add(1,"c:\exontrol\images\hot.ebn")
oExFileView.Appearance = 16777216 '1000000 +
oExFileView.BackColor = 16777215
|
|
27
|
How do I remove the control's border
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.Appearance = 0
|
|
26
|
How can I change the foreground color of the control's header
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.ForeColorHeader = 255
|
|
25
|
How can I change the background color of the control's header
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.BackColorHeader = 65535
oExFileView.HeaderAppearance = 1
|
|
24
|
How can I change the visual appearance of the header, using EBN files
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oExFileView.BackColorHeader = 16777216
|
|
23
|
How can I change the header's appearance
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.HeaderAppearance = 1
|
|
22
|
How do I disable the control
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.Enabled = .f.
|
|
21
|
How do I change the visual appearance effect for the selected item, using EBN
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oExFileView.SelBackColor = 16777216
oExFileView.SelForeColor = 0
|
|
20
|
How do I change the colors for the selected item
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.SelBackColor = 0
|
|
19
|
How can I change the control's font
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.Font.Name = "Tahoma"
|
|
18
|
How do I show or hide the control's header bar
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.HeaderVisible = .f.
|
|
17
|
How do I change the control's foreground color
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.ForeColor = 7895160
|
|
16
|
How do I change the control's background color
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.BackColor = 13158600
|
|
15
|
How do I prevent painting the control while multiple changes occur
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.BeginUpdate()
oExFileView.ForeColor = 255
oExFileView.BackColor = 16777215
oExFileView.EndUpdate()
|
|
14
|
How do I change the height of the items
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.DefaultItemHeight = 13
oExFileView.Refresh()
|
|
13
|
How do I enable resizing the columns at runtime
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.ColumnsAllowSizing = .t.
|
|
12
|
How do I call your x-script language
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.ExecuteTemplate("BackColor = RGB(255,0,0)")
|
|
11
|
How do I call your x-script language
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.Template = "BackColor = RGB(255,0,0)"
|
|
10
|
Can I change the order of the buttons in the scroll bar
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.Template = "ScrollOrderParts(1) = `t,l,r`" // oExFileView.ScrollOrderParts(1) = "t,l,r"
oExFileView.Template = "ScrollOrderParts(0) = `t,l,r`" // oExFileView.ScrollOrderParts(0) = "t,l,r"
oExFileView.ColumnAutoResize = .f.
oExFileView.Template = "ColumnWidth(`Name`) = 256" // oExFileView.ColumnWidth("Name") = 256
|
|
9
|
The thumb size seems to be very small. Can I make it bigger
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.Template = "ScrollThumbSize(1) = 64" // oExFileView.ScrollThumbSize(1) = 64
oExFileView.ColumnAutoResize = .f.
oExFileView.Template = "ColumnWidth(`Name`) = 256" // oExFileView.ColumnWidth("Name") = 256
|
|
8
|
How do I enlarge or change the size of the control's scrollbars
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.ScrollHeight = 18
oExFileView.ScrollWidth = 18
oExFileView.ScrollButtonWidth = 18
oExFileView.ScrollButtonHeight = 18
oExFileView.ColumnAutoResize = .f.
oExFileView.Template = "ColumnWidth(`Name`) = 256" // oExFileView.ColumnWidth("Name") = 256
|
|
7
|
How do I assign a tooltip to a scrollbar
Dim oExFileView as P
Dim var_StdFont as local
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.Template = "ScrollToolTip(1) = `This is a tooltip being shown when you click and drag the thumb in the vetrical scroll bar`" // oExFileView.ScrollToolTip(1) = "This is a tooltip being shown when you click and drag the thumb in the vetrical scroll bar"
oExFileView.Template = "ScrollPartCaption(1,256) = `This is just a text`" // oExFileView.ScrollPartCaption(1,256) = "This is just a text"
' oExFileView.ScrollFont(0).Size = 12
var_StdFont = oExFileView.ScrollFont(0)
oExFileView.TemplateDef = "dim var_StdFont"
oExFileView.TemplateDef = var_StdFont
oExFileView.Template = "var_StdFont.Size = 12"
oExFileView.ScrollWidth = 20
oExFileView.Template = "ScrollThumbSize(0) = 148" // oExFileView.ScrollThumbSize(0) = 148
oExFileView.ColumnAutoResize = .f.
oExFileView.Template = "ColumnWidth(`Name`) = 256" // oExFileView.ColumnWidth("Name") = 256
|
|
6
|
I need to add a button in the scroll bar. Is this possible
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.Template = "ScrollPartVisible(1,32768) = True" // oExFileView.ScrollPartVisible(1,32768) = .t.
oExFileView.Template = "ScrollPartCaption(1,32768) = `1`" // oExFileView.ScrollPartCaption(1,32768) = "1"
oExFileView.ColumnAutoResize = .f.
oExFileView.Template = "ColumnWidth(`Name`) = 256" // oExFileView.ColumnWidth("Name") = 256
|
|
5
|
Can I display an additional buttons in the scroll bar
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.Template = "ScrollPartVisible(1,32768) = True" // oExFileView.ScrollPartVisible(1,32768) = .t.
oExFileView.Template = "ScrollPartVisible(1,16384) = True" // oExFileView.ScrollPartVisible(1,16384) = .t.
oExFileView.Template = "ScrollPartVisible(1,1) = True" // oExFileView.ScrollPartVisible(1,1) = .t.
oExFileView.Template = "ScrollPartVisible(1,2) = True" // oExFileView.ScrollPartVisible(1,2) = .t.
oExFileView.ColumnAutoResize = .f.
oExFileView.Template = "ColumnWidth(`Name`) = 256" // oExFileView.ColumnWidth("Name") = 256
|
|
4
|
Is there any option to highligth the column from the cursor - point
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.Template = "Background(32) = 16777215" // oExFileView.Background(32) = 16777215
|
|
3
|
Is there any option to highligth the column from the cursor - point
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oExFileView.Template = "Background(32) = 16777216" // oExFileView.Background(32) = 16777216
|
|
2
|
How do I change the visual aspect of the close button in the filter bar, using EBN
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oExFileView.Template = "Background(1) = 16777216" // oExFileView.Background(1) = 16777216
oExFileView.Template = "ColumnFilterButton(`Name`) = True" // oExFileView.ColumnFilterButton("Name") = .t.
oExFileView.Template = "ColumnFilterType(`Name`) = 1" // oExFileView.ColumnFilterType("Name") = 1
oExFileView.Template = "ColumnFilter(`Name`) = `*.exe`" // oExFileView.ColumnFilter("Name") = "*.exe"
oExFileView.ApplyFilter()
|
|
1
|
How do I change the visual aspect of the drop down filter button, using EBN
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oExFileView.Template = "Background(0) = 16777216" // oExFileView.Background(0) = 16777216
oExFileView.Template = "ColumnFilterButton(`Name`) = True" // oExFileView.ColumnFilterButton("Name") = .t.
|